home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Piano Inventions / Invention 2 < prev    next >
Lisp/Scheme  |  1998-10-26  |  5KB  |  183 lines
  1. ; Invention II - solo keyboard (section 1) 
  2.  
  3. (gen-hopalong-symbol xmel (a g) ymel (a g) 100 200 300 0.45 32 0)
  4.  
  5. (setq mel1 (find-change xmel))
  6. (setq mel2 (find-change ymel))
  7.  
  8. (gen-hopalong-vector tonx tony 100 200 300 0.45 7 0) 
  9.  
  10. (create-tonality scale1 (vector-to-list (vector-round 1 12 tonx))) 
  11. (create-tonality scale2 (vector-to-list (vector-round 1 12 tony)))
  12.  
  13. (gen-hopalong-symbol xmel1 (a g) ymel2 (a g) 100 300 500 0.45 24 0)
  14.  
  15. (setq mel3 (find-change xmel1))
  16. (setq mel4 (find-change ymel2))
  17.  
  18. (gen-hopalong-vector ton1x ton1y 100 300 500 0.45 7 0) 
  19. (create-tonality scale3 (vector-to-list (vector-round 1 12 ton1x)))
  20. (create-tonality scale4 (vector-to-list (vector-round 1 12 ton1y)))
  21.  
  22. (gen-hopalong-symbol xmel3 (a g) ymel4 (a g) 100 500 700 0.45 12 0)
  23.  
  24. (setq mel5 (find-change xmel3))
  25. (setq mel6 (find-change ymel4))
  26.  
  27. (gen-hopalong-vector ton2x ton2y 100 500 700 0.45 7 0) 
  28. (create-tonality scale5 (vector-to-list (vector-round 1 12 ton2x)))
  29. (create-tonality scale6 (vector-to-list (vector-round 1 12 ton2y)))
  30.  
  31. (setq rhy1 (append (symbol-repeat 28 '(96)) '(48 48 48 48)))  
  32. (setq rhy2 (append (symbol-repeat 21 '(96)) '(64 64 64)))  
  33. (setq rhy3 (append (symbol-repeat 10 '(96)) '(192 192))) 
  34.  
  35. (setq zone1 (list (make-zone rhy1) (make-zone rhy2) (make-zone rhy3))) 
  36.  
  37.  
  38. (def-symbol
  39.   pnrh (append mel1 mel3 mel5)
  40.   pnlh (append mel2 mel4 mel6)
  41.   )
  42.  
  43. (def-length
  44.   pnrh (append rhy1 rhy2 rhy3)
  45.   pnlh (append rhy1 rhy2 rhy3)  
  46.   )
  47.  
  48. (def-tonality
  49.   pnrh (activate-tonality (scale1 c 6) (scale3 c 6) (scale5 c 6))
  50.   pnlh (activate-tonality (scale2 c 5) (scale4 c 5) (scale6 c 5))
  51.   )
  52.  
  53. (def-zone
  54.   pnrh  zone1  
  55.   pnlh  zone1
  56.   )
  57.  
  58. (compile-instrument "ccl;output:" "invention2a"
  59.                     pnrh
  60.                     pnlh  
  61.                     )
  62.  
  63. ; Invention II - solo keyboard (section 2)
  64.  
  65. (gen-hopalong-symbol xmel (a g) ymel (a g) 100 200 300 0.4 32 0)
  66.  
  67. (setq mel1 (find-change xmel))
  68. (setq mel2 (find-change ymel))
  69.  
  70. (gen-hopalong-vector tonx tony 100 200 300 0.4 7 0) 
  71.  
  72. (create-tonality scale1 (vector-to-list (vector-round 1 12 tonx)))
  73. (create-tonality scale2 (vector-to-list (vector-round 1 12 tony)))
  74.  
  75.  
  76. (gen-hopalong-symbol xmel1 (a g) ymel2 (a g) 100 300 500 0.4 24 0)
  77.  
  78. (setq mel3 (find-change xmel1))
  79. (setq mel4 (find-change ymel2))
  80.  
  81. (gen-hopalong-vector ton1x ton1y 100 300 500 0.4 7 0) 
  82. (create-tonality scale3 (vector-to-list (vector-round 1 12 ton1x)))
  83. (create-tonality scale4 (vector-to-list (vector-round 1 12 ton1y)))
  84.  
  85. (gen-hopalong-symbol xmel3 (a g) ymel4 (a g) 100 500 700 0.4 12 0)
  86.  
  87. (setq mel5 (find-change xmel3))
  88. (setq mel6 (find-change ymel4))
  89.  
  90. (gen-hopalong-vector ton2x ton2y 100 500 700 0.4 7 0) 
  91. (create-tonality scale5 (vector-to-list (vector-round 1 12 ton2x)))
  92. (create-tonality scale6 (vector-to-list (vector-round 1 12 ton2y)))
  93.  
  94. (setq rhy4 '((-1/8 1/8 1/16 1/16 1/16 1/16 1/8 1/8 1/8 1/8)))
  95. (setq rhy5 '((1/4 1/8 1/8 -1/16 1/16 1/16 1/16 1/8t 1/8t 1/8t 1/8 1/16 1/16)))
  96. (setq rhy6 '((1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/8 1/16 1/16 -1/8 1/8)))
  97.  
  98. (def-symbol
  99.   pnrh (append mel1 mel3 mel5)
  100.   pnlh (append mel2 mel4 mel6)
  101.   )
  102.  
  103. (def-length
  104.   pnrh (append rhy6 rhy5 rhy4)
  105.   pnlh (append rhy4 rhy5 rhy6)  
  106.   )
  107.  
  108. (def-tonality
  109.   pnrh (activate-tonality (scale1 c 6) (scale3 c 6) (scale5 c 6))
  110.   pnlh (activate-tonality (scale2 c 5) (scale4 c 5) (scale6 c 5))
  111.   )
  112.  
  113. (def-zone
  114.   pnrh (reverse  zone1)
  115.   pnlh (reverse  zone1)
  116.   )
  117.  
  118. (compile-instrument "ccl;output:" "invention2b"
  119.                     pnrh
  120.                     pnlh  
  121.                     )
  122.  
  123.  
  124. ; Invention II - solo keyboard (section 3)  
  125.  
  126. (gen-hopalong-symbol xmel (a g) ymel (a g) 100 200 300 0.35 32 0)
  127.  
  128. (setq mel1 (find-change xmel))
  129. (setq mel2 (find-change ymel))
  130.  
  131. (gen-hopalong-vector tonx tony 100 200 300 0.35 7 0) 
  132. (create-tonality scale1 (vector-to-list (vector-round 1 12 tonx)))
  133. (create-tonality scale2 (vector-to-list (vector-round 1 12 tony)))
  134.  
  135. (gen-hopalong-symbol xmel1 (a g) ymel2 (a g) 100 300 500 0.35 24 0)
  136.  
  137. (setq mel3 (find-change xmel1))
  138. (setq mel4 (find-change ymel2))
  139.  
  140. (gen-hopalong-vector ton1x ton1y 100 300 500 0.4 7 0) 
  141. (create-tonality scale3 (vector-to-list (vector-round 1 12 ton1x)))
  142. (create-tonality scale4 (vector-to-list (vector-round 1 12 ton1y)))
  143.  
  144. (gen-hopalong-symbol xmel3 (a g) ymel4 (a g) 100 500 700 0.35 12 0)
  145.  
  146. (setq mel5 (find-change xmel3))
  147. (setq mel6 (find-change ymel4))
  148.  
  149. (gen-hopalong-vector ton2x ton2y 100 500 700 0.35 7 0) 
  150. (create-tonality scale5 (vector-to-list (vector-round 1 12 ton2x)))
  151. (create-tonality scale6 (vector-to-list (vector-round 1 12 ton2y)))
  152.  
  153. (setq rhy7 '((1/8 1/16 1/16 1/16 1/16 1/16 1/16 1/2 -1/16 1/16)))
  154. (setq rhy8 '((1/2 -1/4 1/4 1/4 1/4 -1/8 1/8)))
  155. (setq rhy9 '((-1/16 1/16 1/16 1/16 3/16 1/16 1/2)))
  156.  
  157. (def-symbol
  158.   pnrh (append mel1 mel3 mel5)
  159.   pnlh (append mel2 mel4 mel6)
  160.   )
  161.  
  162. (def-length
  163.   pnrh (append rhy9 rhy8 rhy7)
  164.   pnlh (append rhy7 rhy8 rhy9)  
  165.   )
  166.  
  167. (def-tonality
  168.   pnrh (activate-tonality (scale1 c 6) (scale3 c 6) (scale5 c 6))
  169.   pnlh (activate-tonality (scale2 c 5) (scale4 c 5) (scale6 c 5))
  170.   )
  171.  
  172. (def-zone
  173.   pnrh  zone1
  174.   pnlh  zone1
  175.   )
  176.  
  177. (compile-instrument "ccl;output:" "invention2c"
  178.                     pnrh
  179.                     pnlh  
  180.                     )
  181.  
  182.  
  183.